% BeachHead - v1 Copyright 1991 Silicon Beach Software, inc.
userdict begin/BeachHead 100 dict def BeachHead end begin
/BeachHead_version 1 def/c 75 string def/oldmatrix 6 array def/newmatrix 6 array def/a{bind def}bind def/b{exch def}a
/_doTexturePat false def/nulld{counttomark{null def}repeat pop}a mark/l/m/o/q/r/u/v/w/x/y/z/A
/B/D/E/F/G/H/I/J/K/M/N/O/P/Q/R/S/T/V/W/X/Y/ba/ca/da/ea/fa/ga/ha/ia/ja/ka/la/ma/_strtxtmatrix nulld
/d{0 1 74{c exch 0 put}for dup c cvs pop c}a/e{d 74 1 put}a/f{d 74 2 put}a/g{d 73 1 put}a
/h{d 72 1 put}a/i{d 71 1 put}a/j{1 currentrgbcolor 1 index eq 3 1 roll eq and{currentgray sub}if setgray}a
/k{/FontInfo 2 dict def FontInfo /FullName c dup length string copy put FontInfo/UnderlinePosition
100 l/FontInfo known{l/FontInfo get/UnderlinePosition known{pop l/FontInfo get/UnderlinePosition get
}if}if put/m 1 string def/FontBBox[0 0 1 1]def/FontType 3 def/Encoding l/Encoding get def}a
/n{/o 13 dict def o begin/l b k/_isSBShadowFont l/_isSBShadowFont known{l/_isSBShadowFont get}
{false}ifelse def/BuildChar{exch begin m 0 3 -1 roll put l setfont m stringwidth setcharwidth
0 0 moveto m show end}def}a/p{/o 16 dict def o begin/q b/r b/l b/FontMatrix[1 0 0 1 0 0]def k}a/s{exch begin m 0 3 -1 roll put
l setfont m stringwidth FontMatrix 0 get dup 20 le{pop 1 index 0 ne{exch q add exch}if
}{40 le{1 index 0 ne{exch q 2 div add exch}if}if}ifelse setcharwidth 0 0 moveto gsave}a
/t{dup length 1 add dict/o b dup{1 index/FID ne 2 index/UniqueID ne and{o 3 1 roll put}
{pop pop}ifelse}forall o begin/PaintType 2 def/StrokeWidth 12 def end/_ o definefont}a
/findoutlinefont{userdict/BeachHead get begin e FontDirectory c known{pop c findfont}
{findfont t .02 p/_isSBShadowFont false def/BuildChar{userdict/BeachHead get begin s j
m show grestore gsave r setfont m show grestore end	end}def end c o definefont}ifelse end}a
/findshadowfont{userdict/BeachHead get begin f FontDirectory c known{pop c findfont}{findfont
t .05 p/_isSBShadowFont true def/BuildChar{userdict/BeachHead get begin s q dup neg rmoveto
m show grestore gsave j m show grestore gsave r setfont m show grestore end	end}def end
c o definefont}ifelse end}a/addheavy{userdict/BeachHead get begin dup/FontInfo known{dup/FontInfo get/FullName known
{dup/FontInfo get/FullName get h pop FontDirectory c known{pop c findfont}{n/FontMatrix[1 0 0 1 0 0]def
/BuildChar{exch begin m 0 3 -1 roll put l setfont m stringwidth exch .02 add exch setcharwidth
0 0 moveto m show .04 0 moveto m show end}def end c o definefont}ifelse}if}if end}a
/addoblique{userdict/BeachHead get begin dup/FontInfo known{dup/FontInfo get/FullName known
{dup/FontInfo get/FullName get g pop FontDirectory c known{pop c findfont}{n/FontMatrix[1 0 .17 1 0 0]def
end c o definefont}ifelse}if}if end}a/adduline{userdict/BeachHead get begin dup/FontInfo known
{dup/FontInfo get/FullName known{dup/FontInfo get/FullName get i pop FontDirectory c known
{pop c findfont}{n/FontMatrix[1 0 0 1 0 0]def/BuildChar{exch begin m 0 3 -1 roll put
l setfont m stringwidth setcharwidth 0 0 moveto m show .05 setlinewidth 0 setlinecap
FontInfo/UnderlinePosition get 1000 div dup 0 exch moveto 0 exch m stringwidth 3 -1 roll add
3 1 roll add exch lineto stroke end}def end c o definefont}ifelse}if}if end}a
/EPSBegin{save userdict/BeachHead get begin/la b count/ma b userdict/showpage{}put end
0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath}a
/EPSEnd{userdict/BeachHead get begin count ma sub dup 0 gt{{pop}repeat}{pop}ifelse la end restore}a
/cimage{userdict/BeachHead get begin{{readstring}}{{readhexstring}}ifelse/u b/colorimage where
{pop 4 index dup string/v b dup string/w b dup string/x b dup string/y b string/z b
{currentfile v u pop}{currentfile w u pop}{currentfile x u pop}{currentfile y u pop
currentfile z u pop pop}5 -1 roll{true 4 A}{true 4/colorimage load exec}ifelse}{4 index
dup string/z b 4 mul string/B b{currentfile B u pop pop currentfile z u pop}
exch{transimage}{/image load exec}ifelse}ifelse end}a/C{D{gsave E F 3 index idtransform translate
G 1 4 index 4 index{H}/image load exec grestore/I 0 def/G 0 def/D false def}if}a
/transimage{userdict/BeachHead get begin 2 index 8 ne{/image load exec}{4 index cvi string
/H b/J 0 string def/K 0 def/D false def/I 0 def/G 0 def 0 1 5 index 1 sub{/F b 0 1 6 index 1 sub
{K J length ge{1 index dup type/stringtype ne{exec}if/J b/K 0 def}if J K get/K K 1 add def
dup 255 eq{pop pop C}{H I 3 -1 roll put/I I 1 add def/G G 1 add def D not{/E b/G 1 def
/D true def}{pop}ifelse}ifelse}for C}for 5{pop}repeat}ifelse end}a/L{D{gsave E F 8 index
idtransform translate I 1 8 9 index{M}{N}{O}{P}true 4/colorimage load exec grestore/I 0 def
/D false def}if}a/A{9 index cvi dup string/M b dup string/N b dup string/O b string/P b
/Q 0 string def/K 0 def/D false def/I 0 def/G 0 def 0 1 10 index 1 sub{/F b 0 1 11 index 1 sub
{K Q length ge{6 index exec/R b 5 index exec/S b 4 index exec/T b 3 index exec/Q b/K 0 def
}if R K get S K get T K get Q K get/K K 1 add def dup 0 eq 2 index 0 eq and 3 index 0 eq and
4 index 0 eq and{5{pop}repeat L}{M I 6 -1 roll put N I 5 -1 roll put O I 4 -1 roll put
P I 3 -1 roll put/I I 1 add def D not{/E b/D true def}{pop}ifelse}ifelse}for L}for 10{pop}repeat}a
/bps 8 string def/bpm[8 0 0 8 0 0]def/bpp{bps}def
/overlaybackpat{userdict/BeachHead get begin gsave setrgbcolor bps copy pop dup 0 get 8 div floor cvi
8 mul 1 index 2 get 8 div floor cvi 8 mul 2 index 1 get 8 div floor cvi 8 mul 8 4 index 3 get 8 div
floor cvi 8 mul{2 index 8 3 index{1 index gsave translate 8 8 scale 8 8 false bpm/bpp load imagemask
grestore}for pop}for pop pop pop grestore end}a
/U{userdict/BeachHead get begin/V b/W b countdictstack save V 2 add 2 roll count V sub /X b
/W load end{exec}stopped userdict/BeachHead get begin/Y b count X sub{pop}repeat Y 3 1 roll
restore countdictstack exch sub{end}repeat end}a/Z( )def/aa{moveto{ba setfont Z end gsave
0 setgray stringwidth grestore userdict/BeachHead get begin rmoveto/ca load null ne{/da da
1 add def da ea length le{fa ea da get ca}if}{ax ay rmoveto fa ga eq{cx cy rmoveto}if}ifelse}stopped
currentdict userdict/BeachHead get ne{userdict/BeachHead get begin}if}a
/filltextpath{userdict/BeachHead get begin/ea b dup type dup/integertype eq exch/realtype eq or
{/ay b/ax b/ga b/cy b/cx b/ca null def}{/ca b}ifelse/ha b/ia b ia{currentfont/_isSBShadowFont get
{gsave 0 setgray/ca load null ne{/ca load ea kshow}{cx cy ga ax ay ea awidthshow}ifelse
grestore}if}if gsave currentfont ia{begin r FontMatrix makefont l FontMatrix makefont end
}{null exch}ifelse/ja b/ka b/ba currentfont def _doTexturePat{systemdict/makepattern known}
{false}ifelse{matrix currentmatrix _strtxtmatrix null ne{_strtxtmatrix setmatrix}if 1 -1 scale
txTrnsX txTrnsY translate settexturepat setmatrix/da 0 def ea{/fa b Z 0 fa put ja setfont currentpoint
Z show aa{exit}if}forall}{10 setlinewidth/da 0 def currentpoint newpath 0 dup dup dup moveto lineto
closepath moveto ea{/fa b Z 0 fa put currentpoint ja setfont count 1 add dup 1 roll Z true{charpath}stopped
count count -1 roll sub{pop}repeat currentpoint{ha}0 U pop newpath 0 dup dup dup moveto
lineto closepath moveto aa{exit}if}forall}ifelse grestore ka null ne{gsave 0 setgray/da
0 def ea{/fa b Z 0 fa put ka setfont currentpoint Z show aa{exit}if}forall grestore}if
/_doTexturePat false def/_strtxtmatrix null def end}a end